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INTRODUCTION 

FORTRAN Extended 6000 version 3/7000 version 1 processes a scien- 
tific language for programming on Control Data Corporation® 6000 and 
7000 Series Computers under control of the SCOPE Operating System. 

This Instant provides a short reference tool for frequently used infor- 
mation. Detailed information on FORTRAN Extended and the other 
languages mentioned is available in the applicable reference manuals. 



FORTRAN STATEMENTS & CODING FORM 

FORTRAN Extended source programs consist of an ordered set of state- 
ments from which the compiler generates machine instructions and con- 
stants. Each line of a FORTRAN coding form corresponds to a punched 
card containing one statement line. Statements are written in the 
following columns: 



Column 



Content 



Statements 



Continuations < 



1-5 


Statement label 


6 


Blank or zero 


7-72 


FORTRAN statement 


73-80 


Identification field 




1-5 


Ignored 


6 


Non-zero, non-blank 
FORTRAN character 


7-72 


Continued statement 


73-80 


Identification field 




1 Cor$or* 


2-80 


Comments 



CONTROL CARD FORMAT 

FTN. comments 

FTN (p-i,p 2 P n ) 

FTN. is equivalent to: 

FTN (I = I NPUT,L=0UTPUT,B=LG0,S=SYSTEXT,0PT=1 , R=1 ) 

The parameter list may include the following options: 



Control Card 
Option 



Usage 



Release Setting 



l=lfn 
list=lfn 



Abort to EXIT(S) card if fatal 
errors encountered during 
compilation 

Produce object code file 



Use COMPASS assembler for 
compiler generated code (almost 
trebles amount of central pro- 
cessor time for compilation) 

Debug mode of compilation 

Format file for editing (COM- 
PASS card images file is pro- 
duced with *DECK cards for 
each program unit, suitable as 
input for UPDATE) 

Compile and go option 



Select compiler input file 

Select compiler listing file (Ifn) 

and listing option (list): 

L List source code 

List COMPASS card images 

X List ANSI extension 

diagnostics 
N Suppress informative 

diagnostics 
R (equivalent to long reference 

map option R=2) 



Object code on 
standard file 
(LGO) 

FORTRAN 
assembler is 
used 

No debug mode 

No file for 
editing 



No compile and 

go 

lfn=INPUT 

IfnOUTPUT 
list=L 

L 
No 

No 

No 

No 



Control Card 
Option 



Reference 
Map Level 

R=0 
=1 

=2 

=3 

OPT=level 



ROUND=s 



SYSEDIT=ss 



Usage 



Release Setting 



Kind of reference map: 



No map 

Short map (symbols, addresses, 

properties) 

Long map (short map, references 

by line numbers, DO-loop map) 

Long map, printed common block 

members and equivalence classes 

Select level of optimization: 

lowest optimization 

1 slightly above FORTRAN 
Extended 2.0 optimization 

2 program unit flow analysis 
used in optimization 

s = * / + _ 1-4 operators to 
indicate rounded arithmetic 

For system programmer usage: 
ss=FILES, form execution time 
input/output unit references 
through indirect search of low 
core table rather than by using en- 
try points and external references 

ss=IDENT, append a $ to I DENT 
name of recognized routines in 
addition to ENTRY point name. 
I mplies a special selection for users 
of SEGMENT feature since seg- 
ments are specified by I DENT 
names 

SYSEDIT only is equivalent to 
SYSEDIT= FILES and IDENT 

Maximum error checking in 
mathematical library routines 
(basic external functions) 

Selects minimal I/O buffer 
allocation (513 word) for com- 
pilation. May increase compile 
time, but jobs with large numbers 
of declarative statements compile 
in smaller field length than other- 
wise 



R = 1 unless 
L option = 0; 
then R = 



OPT= 1 



No rounding 



No search 



No special 
selection 



Maximum 
checking not 
carried out 



SOURCE DECK 



END 



FORTRAN statements 



SUBROUTINE RVIE (C, J, L) 



/end 



'FORTRAN statements 



/function rtsm (a,b) 
/end 



t 



FORTRAN statements 



-/program MAIN 



COMPILATION 



Record 
separator 



(end of file) 



* £ 



FORTRAN source deck 



8 
9 


{end of record) 








/FXH. 






/ COMPI LE, T500, CM55000, P1 . 













COMPILATION & EXECUTION 




COMPILATION & EXECUTION 



6 (end of file) 
7 



7 (end of record) 

8 ,/— 

9 ,/ 



FORTRAN source deck 



7 (end of record) 



L 



( LGO. 



FTN. 



/ FCOMPLEX,T1000,CM63000,EC6600,P3. 



FORTRAN COMPILATION, COMPASS 
ASSEMBLY & EXECUTION 



6 (end of file) 

7 j 



7 (end of record) 

8 j 

9 



data 



COMPASS source deck 



FORTRAN source deck 



7 (end of record) 
9 J]£°~ 



( /FTN(LX) 
/ EV103T6000,CM55000,EC100,P7. 



COMPILE & EXECUTE WITH 
SUBROUTINE & COMPASS 



'6 (end of file) 
7 

J- 



9 jE 



1 (end of record) 



ENTRY A1 



/ IDENT 



SUB 



SUBROUTINE S1(P1,P2) 



/ 7 (end of record) 



PROGRAM DONE (INPUT,OUTPUT) 



LGO. 



/FTN. 



/ DMW13,T200,CM55000,EC1000,P7. 



COMPILE & PRODUCE BINARY CARDS 





LOAD & EXECUTE BINARY PROGRAM 



/F 1 

7 



INPUT. 



| binary deck 



/request file. 

/ margo,t2000,cm 15000, ec 100,p7. 




10 



COMPILE & EXECUTE 

WITH RELOCATABLE BINARY DECK 




PROGRAM ALFRED{lNPUT f 0UTPUT,TAPE1,TAPE5, TAP 



COMPILE ONCE & EXECUTE 
WITH DIFFERENT DATA DECKS 



data #1 



rr 

8 
9 



PROGRAM SUBS (INPUT,OUTPUT) 




COMPILATION & 2 EXECUTION! 
WITH OVERLAY! 
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EXPRESSIONS 

Arithmetic, masking, relational, and logical operations may be specified 
for the evaluation of expressions. 



Arithmetic Expression using operands of types other than 

logical 

Masking Arithmetic expression using one of the operators: 

.OR. .AND. .NOT. 

Relational Arithmetic or masking expressions separated by 

relational operators 

Logical Logical variables, functions, constants, and rela- 

tional expressions separated by logical operators 



NAME TYPE 

Type of variable names, array names, and statement function names 
may be indicated implicitly or explicitly. 



Implicit typing: Determined by initial letter of name. 

Real: A-H, 0-Z. Integer: I, J, K, L, M, N 

Explicit typing: Determined by declaration with or without the 
prefix TYPE: 

REAL DOUBLE or DOUBLE PRECISION 

INTEGER LOGICAL 
COMPLEX ECS 

CONSTANTS 

Data Type Characteristics 

Integer 

Real 1-15 digits, with decimal point, optional exponent 

base 10 

Double Precision 1-29 digits, decimal point, optional exponent base 
10 which may be signed 
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m 



1 



Data Type 
Complex 

Octal 

Logical 

Hollerith 



Data Type 



Characteristics 

Real part and imaginary part, decimal point, 
optionally signed, real numbers 

1-20 octal digits with B suffix, no sign or decimal 
point 

TRUE. T. .FALSE. .F. 
true is -1, false is all zero bits 

nHf, nRf (right justified), nLf (left justified), 

n number of characters in string 

H left justified, blank fill 

R right justified, zero fill 

L left justified, zero fill 

f characters in string (embedded blanks inclu- 
ded); 1-10 in replacement statement, 1-150 
in FORMAT statement; DATA statement and 
parameter list of a call may extend through 
19 continuation lines 

VARIABLES & ARRAYS 

Variables Arrays 



Integer 


Implicit or explicit 
type single variable 
name 


Implicit or explicit 
type array name with 
subscripts in paren- 
theses 


Real 


Double Precision 


Explicit type single 
variable name 


Explicit type array 
name with sub- 
scripts in parentheses 


Complex 


Logical 



NAME: An alphabetic character followed by 0-6 alphanumeric 
characters. 
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SUBSCRIPTS AND ARRAYS 

A subscript is written as a list of subscript expressions. An array 
element is an alphanumeric identifier that is the name of an array, 
followed by up to three subscript expressions representing a single 
element within the array. A subscript expression may be any legal 
arithmetic expression. 

Subscript expressions are separated by a comma and the subscript is 
enclosed in parentheses. If the number of subscript expressions in a 
reference is less than the declared dimensionality, the compiler assumes 
missing subscripts have a value of one. 

A(2) = A(2,1) 

A(,2)^A(1,2) illegal form 

A subscript expression may be missing from the right only; if a comma 
appears, it must be preceded and followed by a subscript expression. 

If the subscript list does not appear, all subscript expressions are as- 
sumed to be one, and an informative diagnostic is issued. If the sub- 
script expression is not integer, the value will be truncated to integer. 

Standard form: (constant * variable ± constant) 

For DIMENSION A(L,M,N) the location of A(i,j,k) with respect to 
A(1,1,1) is determined by the formula: 

A+(i-1+L*(j-1+M*(k-1)))*e 

where e is the number of words occupied by each element of A. For 
double precision and complex, e = 2; otherwise, e=1. 



DATA DECLARATION AND STORAGE 
ALLOCATION 



Key: 



v Variable (all can be Vj (ij) also) 

i Integer variables or integer constants (maximum 3) 

x Common block name (may be null) 

a List of variable names 

k Data variable list (optionally DO-implied) 

d Data constant list 

r Data variable list 
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INTEGER v-,,v 2 ,...,v n 

REAL v 1 ,v 2 ,...,v n 

DOUBLE PRECISION v 1f v 2 ,...,v n 

COMPLEX v v v 2 , ...,v n 

LOGICAL v 1 ,v 2 ,...,v n 
tECS v 1 ,v 2 ,.. . ,v R 
tTYPE INTEGER v 1 ,v 2 ,...,v n 

tTYPE REALv-,,v 2 v p 

tTYPE DOUBLE PRECISION v 1 ,v 2/ ... 
tTYPE COMPLEX v 1 ,v 2 ,...,v n 

tTYPE LOGICAL v v v 2 v n 

tTYPE ECSv 1 ,v 2 ,...,v n 

DIMENSION v 1 (i 1 ),v 2 (i 2 ) v n (i n ) 

COMMON /x 1 /a 1 /.../x n /a n 

EQUIVALENCE (k|) , (k 2 ) ,.-.., (k n ) 

DATA k^d^ , k 2 /d 2 / , . . . , k n /d n / 
tDATA ( ri =d 1 ),(r 2 =d 2 ) (r n =d p ) 



permitted non-ANSI form 



REPLACEMENT STATEMENT 



v Variable or array element 

e Arithmetic, logical, or masking expression 
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CONTROL STATEMENTS 

Control statements alter sequential execution of statements, perform 
tests and iterations, and terminate subprograms and programs. 



Form 



Example 



DO n i = m-],m2 

n Terminal statement label 

i Integer control variable 

m-| Initial value 

rri2 Terminal value 

1TI3 Incremental (maximum 

value of running index is 

2 17 -2) 



If nri3 is omitted, a value of one 
is assumed. 



DO 

DO 50 K = 3,18,6 
DO 50 K = 3,18 



IF (e)k 1 ,k 2 ,k 3 

e Variable or arithmetic 

expression of integer, real, 
double precision, or com- 
plex type 
k Statement labels 
e < control transfers to k-j 
e = control transfers to k 2 
e > control transfers to k 3 

IF (e)k v k 2 

e Masking or arithmetic 
expression 

e =£ control transfers to k-| 
e = control transfers to k 2 

ANSI equivalent is: 
IF(e)k 1 ,k 2 ,k 1 



IF (J-M**2)5,15,2 



IF (X/(D**4))6,14 



m 



Form 

IF (e)s 

e Logical expression 

s Any executable statement 

except DO or logical IF. 
If e is false, s is not executed; 
if e is true, s is executed. 



Example 



IF (X.LE.B)GOT0 73 



IF (e)k v k 2 

e Logical expression 
k Statement labels 
If e is true, transfer to k-j; 
if e is false, transfer to k 2 

ANSI equivalent is: 

IF(ZR.GT.F)GOT031 
GO TO 35 



IF(ZR.GT. F)31,35 



GOTOk 

k Statement label 



GOTO 

GO TO 500 



ASSIGN kTO i 

k Executable statement label 

i Integer variable 
then 
GOTOi,(k.,,k2 k n ) 

k Statement labels 

i Integer variable; must con- 
tain value assigned by pre- 
ceding ASSIGN statement 
and be a label in list. 

When i < or i > maximum, a 

fatal error occurs at execution. 



ASSIGN 25 TO I 



ASSIGN 7 to JNP 



GOTO JNP,(4,2,7) 

7 DKW(K) = DKW(K+5) 



GOTO(k-,,k2 k n ),i 

k Statement labels 

i Variable or expression 



GOTO (3,7,4,9),Jl_ 
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Form Example 

CONTINUE 

CONTINUE (usually preceded by 100 CONTINUE 
statement label) 



PAUSE 

PAUSE n 

n String of 1-5 octal digits 



PAUSE 
PAUSE 23456 



STOP 
STOPn 



STOP 

STOP 
STOP 55675 



String of 1-5 octal digits 
without a B suffix 



CALL s {a-],a 2 ,.. 
CALLs 



CALLX (A,B,C,D) 
CALLX 



CALLs(a l ...a n ),RETURNS(b 1 ...b n ) CALL X (A,B),RETURNS(35,62) 
CALLs, RETURNS (b v b 2 ,. . . ,b n ) CALLX, RETURNS (5,9) 
s Subroutine name 
a Actual parameters 
b Statement labels in calling 
program or subprogram 



RETURN 
RETURN a 



RETURN 

RETURN 
RETURN CHI 



a Parameter in RETURNS list 



END 



END (only characters on card; 
anywhere in columns 7-72) 



SNPUT/OUTPUT 

Input/output statements control the flow of data. Two modes. are 
possible: formatted (coded) and unformatted (binary). 

Parameters 

u Identifies I/O unit; integer constant or simple integer variable 
f Identifies format specification; FORMAT label or array name 
k I/O list of data to be transferred 



Form 



tPRINTf,k 
tPRINTf 



Formatted Input/Output 



Example 



READ (u,f)k READ (10,15)A,B,CF,R 

READ (u,f) READ (1,4) 
tREADf,k READ 10,LISTX,BLOK,WEB 
tREADf READ 25 ___^ 

WRITE (u,f)k WRITE (10,15)B,(A(I),I,I = 1,100),C,X,Y,Z 

WRITE (u,f) WRITE (14,50) 



PRINT 12,ADS,KLM 
PRINT 25 



tPUNCH f,k 
t.PUNCH f 



PUNCH 30,HITE 
PUNCH 50 



'Non-ANSI forms 



Form 



Example 



NAMELIST/y 1 /a 1 .../y n /a n NAMELIST /X1/R1,R3/X2/R2 

y NAMELIST name NAMELIST /SL01/D1,D2,L5 

a List of variables or array names 

Forms of input data for use with namelist 

$NAMEV = C J = 52 

a = d 1; ...,dj B = 12,5.6,7*32 

a(n) = d 1 ,...,d m XAP (6,9) = 73.2E4,45,9*21 

NAME Corresponds to y (above) 



21 



Form 



Example 



Forms of input data for use with namelist (Continued) 

v Variable name 

c Constant 

a Array 

n Integer constant subscript 

d Simple constants or repeated 
constants of form k*c where 
k is repetition factor 

Namelist I/O 

Read (u,y) 
Write (u,y) 
Read y 
Print y 
Punch y 



READ (5,XI) 
WRITE (10,CONTS) 
READSECD 
PRINT ADDED 
PUNCH TRY 14 



Unformatted Input/Output 

Form Example 



READ (u)k 
READ (u) 


READ(35)DATA,INFO 
READ (10) 


WRITE (u)k 
WRITE (u) 


WRITE (15) CAN,LOCA,PLP 
WRITE (5) 


REWIND u 


REWIND M or REWIND 3 


BACKSPACE u 


BACKSPACE I or BACKSPACE 10 


ENDFILE u 


ENDFILEJ or ENDFILE9 



ECS I/O 

CALL READEC (a,b,n) 
CALL WRITEC (a,b,n) 

a Variable or array element 

in central memory 
b Variable or array element 

in ECS common block 
n Integer constant or integer 

expression 



CALL READEC (D,J(4,1,3), 17) 
CALL WRITEC (XY,G,50) 
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Form 



Example 



Mass Storage I/O 

CALL OPENMS (u,ix,l,p) 

CALL READMS (u,fwa,n,i) 

CALLWRITMS (u,fwa,n,i) 

CALLSTINDX (u,ix,l) 

u Logical unit number 

ix First word address of index 

(in CM) 
I Length of index 

I > 2 (number of index entries) 
+1 for name index 

l> number of entries +1 for 
number index 

fwa First word address 

n Number of CM words to be 

transferred 
i Record number/cell address 

containing record name or 

number 



CAL-L OPENMS (1, INDEX, 100,0) 
CALL READMS (1, RECORDS, IND) 
CALL WRITMS (1, RECORD, N,IND) 
CALLSTINDX (1,WIND,50) 



Buffered I/O 

BUFFER IN (u,p)(fwa,lwa) 

BUFFER OUT (u,p)(fwa,lwa) 

u Logical unit number 

p Recording mode 

fwa First word address 

Iwa Last word address 



BUFFER IN (1,1)(A(1),A(LEN)) 
BUFFER OUT (l,J)(B(L1),B(L2)) 



Encode/Decode Statements 



ENCODE (n,f,A)k 
DECODE (n,f,A)k 



ENCODE (30,2,BETA)X,Y 
DECODE (15,1,DELTA)R5,C7 



n Number of characters in 

record ((n+9)/10 words long) 
f FORMAT statement 

A Identifier, variable, or array 
which supplies starting 
location 

k I/O list 



DEBUGGING FACILITY 

The debugging mode of compilation, along with the source cross- 
reference map selection, is provided specifically to aid in the develop- 
ment or conversion of programs. I n the debugging mode of compilation, 
a programmer can establish a record of selected operations as they are 
performed in the execution of his program. This mode facilitates 
debugging from a source listing, and perhaps a source cross-reference 
map; if core dumps are required, interpretation is much easier. 

Features provided with the debugging mode of compilation: 

Array bounds checking 

Program flow tracing 

Call and return tracing 

Function call and value returned tracing 

Stores checking 

Assigned GO TO checking 

Partial execution of routines containing fatal errors 

The debugging mode is selected by the option D on the FTN control 
card. In this mode, debugging selection cards are recognized. If 
this mode is not specified, debugging selection cards are treated as 
comments. 

In the debugging mode, a program is compiled so that specified checks 
can be performed during execution; however, execution will stop when 
a fatal error is detected. 

When a program is compiled in debug mode, 12000g words will be 
required beyond the minimum field length for non-debug mode 
compilation. To execute, 2500g words beyond the minimum will be 
required. 



1 
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Individual Debug Cards Interspersed in Program Unit 



Debug 
Cards 



Debug 
Cards 



Data Deck 



7 

8 J. 



Executable Statements 



;G$ OFF (FUNGS) 



;C$;STORES(A} | 



Executable Statements 



N£$iG'AtLS j 



; C$ FUNCS 



W Executable Statements 



Specification Statements 



Program Name Card 



/ Control Card Record 



This positioning is especially useful when a new program is run for the 
first time and the accuracy of specific areas, such as array bounds, 
is in doubt. 
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Placed Immediately After Program Name Card and 
Before Specification Statements 



7 
8 

9 A 



jO- 



/ Source Deck 



/ Debug Deck j 
/ Program Name Card 




All statements in program unit will be debugged (unless limiting bounds 
are specified in the debug deck), but no statements in other program 
units will be debugged. Especially useful when several program units 
are known to be free of bugs but one unit is new or known to have bugs. 
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Placed Immediately in Front of First Source Line 
(When D file is same as source input file) 



Data Deck 



Subroutine B 



Program A 



Debug Deck 



Control Card Record 



All program units (Program A and Subroutine B) will be debugged 
(unless exclusive program units are specified in the debug deck). 
Particularly useful when a program is run for the first time, since it 
ensures that all program units will be debugged. 



Debug Deck on Separate File (External Debug Deck) 




(Input) 



' Debug Deck 



(Input) 



FTN (l = TAPE1,D) 
Compiler 




(Input) 



Source Deck 



(Input) 



FTN (D= TAPED 
Compiler 



All program units are debugged (unless exclusive program units are 
specified in the deck). Several jobs can be debugged using the same |fl 
debugging deck. ^^ 
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Debugging statements follow all normal FTN formation rules, with the 
additional requirement that columns 1 and 2 of each statement line, 
including continued statements, must contain C$. Columns 3-5 of 
continuation lines must be blank. If no parameters are specified, all 
applicable statements are checked except STORES. 



Name 


Function 


Format 


DEBUG 


Initiates debugging; 
must begin with this 
statement 


C$ DEBUG(name 1 , . . . , name n ) 
C$ DEBUG 


AREA 


Designates specific 
area to be checked in 
a program unit. 


C$ DEBUG 

C$ AREA(bounds 1 ),...,(bounds n ) 

or 
C$ DEBUG(namei , . . . , name n ) 
C$ AREA/name-|/(bounds), 
.. ./name n /(bounds) ,.. . 


CALLS 


Traces calls to and 
returns from specified 
subroutines. 


C$CALLS(a 1 a n ) 

C$ CALLS 


FUNCS 


Traces usage of 
functions in a program 
unit. 


C$ FUNCS(a.| a n ) 

C$ FUNCS 


GOTOS 


Assures that the selected 
statement numbers are 
valid when executed in 
an assigned GO TO. 


C$ GOTOS 


NOGO 


Suppresses partial execu- 
tion of a compiled 
routine whenever a 
fatal compilation error 
occurs. 


C$ NOGO 


STORES 


Records stores into 
specified variables as a 
result of replacement 
statements; 


C$STORES(c 1 ,c 2 c n ) 
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Name 


Function 


Format 


STORES 
(Cont) 


c Can be variable 
names or relational 
expressions in either 
of the forms: 




variable .relational operator, constant 




( .valid, (out of range or indefinite) 
variable < .range, (out of range) 
\ .indef. (indefinite) 


TRACE 


Produces a message for 
each intraprogram 
transfer in control at a 
DO-nest level < level 
specified. 


C$ TRACE(level) 
C$ TRACE 


OFF 


Suppresses interspersed 
debugging statements 
at compilation time. 


C$OFF(x-, x n ) 

C$OFF 



CROSS REFERENCE MAP 

The cross reference map produced of all programmer created symbols 
in a program unit is determined by the R option on the control card. 



R = No map 

= 1 Short map (symbols, addresses, properties) 

= 2 Long map (short map, references by line number, 
and DO-loop map) 

= 3 Long map and printout of common block 
members and equivalence classes 

Unspecified Implies R = 1 
The default option is R = 1 unless the L option equals 0; then R = 0. 
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FUNCTIONS 



Intrinsic Function 



Argument/ Function 



ABS(x) 


Absolute value 


Real/real 


AIMAG(c) 


Imaginary part of 
complex argument 


Complex/real 


AINT(x) 


Truncation 


Real/real 


AMAXCXi-, ,i 2 ,...) 


Maximum argument 


Integer/real 


AMAX1(x 1 ,x 2 ,...) 


Maximum argument 


Real/real 


AMIN0(i 1 ,i 2 ,...) 


Minimum argument 


Integer/real 


AMIN(x 1 ,x 2 ,...) 


Minimum argument 


Real/real 


AMOD(x 1 ,x 2 ) 


x-| modulo x 2 


Real/real 


AND(x 1 ,x 2 ) 


Logical product 


Single word 


CMPLX(x 1 ,x 2 ) 


x-| + ix 2 


Real/complex 


COMPL(x) 


Complement of x 


Single word 


CONJG(c) 


Conjugate of c 


Complex/complex 


DABS(x) 


Absolute value 


Double/double 


DIM(x 1 -,x 2 ) 


x-| - Min(x-| , x 2 ) 


Real/real 


DBLE(x) 


Conversion 


Real/double 


DMAXKd-i ,d 2 ,...) 


Maximum argument 


Double/double 


DMIN1(d 1 ,d 2 ,...) 


Minimum argument 


Double/double 


DMOD(d-, ,d 2 ) 


d-| modulo d 2 


Double/double 


DSIGN^ ,d 2 ) 


Sign d 2 times d-j 


Double/double 


FLOAT(i) 


Conversion 


Integer/real 



Intrinsic Function 




Argument/Function 


IABS(i) 


Absolute value 


Integer/integer 


IDIIN/Ki-i , 


2> 


i-j - Min(i-| ,i 2 ) 


Integer/integer 


IDINT(d) 


Conversion 


Double/integer 


IFIX(x) 


Conversion 


Real/integer 


INT(x) 


Truncation 


Real/integer 


ISIGIM(i-| 


>V 


Sign i 2 times i-j 


Integer/integer 


MASK(i) 


Form i bit mask, 
left adjusted 


Integer/octal 


MAX0(ii 


,i 2 ,...) 


Maximum argument 


Integer/integer 


MAXKx-, 


,x 2 ,...) 


Maximum argument 


Real/integer 


MIN0(i 1 , 


i 2 ,...) 


Minimum argument 


Integer/integer 


MINKx-, 


x 2 ,...) 


Minimum argument 


Real/real 


MODO-, , 


2> 


i-| modulo i 2 


Integer/integer 


OR(x 1f . 


.,x n ) 


Logical sum 


Single word 


REAL(c) 


Real part of complex 
argument 


Complex/real 


SIGN (x-, 


,x 2 ) 


Sign x 2 times x-j 


Real/real 


SHIFKi-, 


,i 2 ) 


Shift i-j , i 2 bit positions: 
left circular if i 2 
positive, right with 
sign extension if i-j 
negative 


i-| : Single word 
i 2 : Integer 


SNGL(d) 


Conversion, unrounded 


Double/real 
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External Function 




Argument/ Function 


ACOS(x) 


Arccosine 


Real/real 


ALOG(x) 


Log base e 


Real/real 


ALOG10(x) 


Log base 10 


Real/real 


ASIN(x) 


Arcsine 


Real/real 


ATAN(x) 


Arctangent 


Real/real 


ATAN2(x 1 ,x 2 ) 


Arctangent Xi/x 2 


Real/real 


CABS(c) 


Modulus 


Complex/real 


CCOS(c) 


Complex cosine 


Complex/complex 


CEXP(c) 


Complex exponent 


Complex/complex 


CLOG(c) 


Complex log 


Complex/complex 


COS(x) 


Cosine 


Real/real 


CSIN(x) 


Complex sine 


Complex/complex 


CSQRT(c) 


Complex square root 


Complex/complex 


DATAN(d) 


Double arctangent 


Double/double 


DATAN2(d 1 ,d 2 ) 


Double arctangent 
d 1 /d 2 


Double/double 


DATE(x) 


Date 


Octal/Hollerith 


LOCF(x) 


Address of argument x 


Symbolic/integer 


SECOND(x) 


CPU seconds 


Real/real 


SIN(x) 


Sine 


Real/real 
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External Function 



Argument/Function 



SQRT(x) 


Square root 


Real/real 


TAN(x) 


Tangent 


Real/real 


TANH(x) 


Hyperbolic tangent 


Real/real 


TIME(x) 


Time of day 


Octal/Hollerith 


UNIT(i) 


Buffer unit i status 
-1 = Ready, no error 

= EOF, last operation 

1 = Parity error 


Integer/real 


EOF(i) 


= No EOF 


Integer/ real 


LEGVAR(x) 


Variable characteristic 
-1 = Indefinite 

= Out of range 

1 = Normal 


Real/integer 


IOCHEC 


Non-buffer parity 
= No parity error 


Integer/integer 


LENGTH(i) 


Number of words read 
on previous I/O request 
on unit i after BUFFER 
IN 


Integer/integer 


DATE(x) 


Current date 


Dummy/Hollerith 


DCOS(d) 


Double cosine 


Double/double 


DEXP(d) 


Double exponent 


Double/double 


DLOG(d) 


Double natural log 


Double/double 


DLOG10(d) 


Double log base 10 


Double/double 



External Function 



Argument/ Function 



DSIN(d) 


Double sine 


Double/double 


DSQRT(d) 


Double square root 


Double/double 


EXP(x) 


e to the xth power 


Real/real 


RANF(x) 


Random number 
generator 


Dummy/real 



STATEMENT FUNCTION 



f(a-| ,a 2 ,...,a n )=e 

f Function name 

a Formal parameters 

e Expression 

Statement functions are compiled in line. 

F(P1 ,P2) = P1 *P2+P1/P2+CON 

A=F(A,3.0)+B 

is equivalent to writing: 

A = (A*3.0+A/3.0+CON)+B 



LIBRARY SUBROUTINES 



DISPLA (nHname,x) 

n < 10; x may be real or integer 


Display name and value in dayfile 


EXIT 


Terminate execution 


RANGET(x) 


Current value RANF 
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RANSET(x) 


Initial value RANF 


SECOND(x) 


CP time used 


REMARK(nH message) 
message < 40 characters 


Dayfile message 


SLITE(i) 


Sense light on 


SLITET(ij) 
i Sense light 
j Condition: 1 On 
OOff 


Sense light test 


SSWTCH(i,j) 
i Sense switch 
j Condition: 1 Down - on 
2 Up -off 


Sense switch test 


OPENMS(u,ix,L,p) 


Mass storage I/O 


ERRSET(a,b) 


Set maximum number of errors 
allowed in input data before fatal 
termination 


READMS(u,fwa,n,i) 


Read mass storage 


WRITMS(u,fwa,n,i) 


Write mass storage 


STINDX(u,ix,L) 


Store index 



u Logical unit number 

ix First word address of index in central memory 

L Length of index 

L > 2 (number of entries) + 1 for name index 
L > number of entries + 1 for number index 

P Type of index 

1 for name index 

for number index 
fwa First word address of record in central memory 
n Number of central memory words to transfer 
i Record number or location of record name 
a Error count 
b Maximum number of errors in input data 
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SUBPROGRAM STATEMENTS 



Key: 

s Symbolic name 

fj Filename 

f Function name 

a Formal/actual parameters 

b Formal/actual returns list parameters 

v Subroutine or function name 

PROGRAM s 

PROGRAM s(f 1# f 2 ,...,f n ) 

SUBROUTINES 

SUBROUTINEs(a 1 ,a 2 ,...,a n ) 

SUBROUTINES, RETURNS (b-, , b 2 ,... b R 



SUBROUTINE s (a-, ,a 2 

FUNCTION f(a 1 ,a 2 a n ) 

REAL FUNCTION f (a-, ,a 2 ,... 
DOUBLE FUNCTION f (a-,, a 2 , 
COMPLEX FUNCTION f (a-, ,a 2 

INTEGER FUNCTION f (a-, , a 2 a n ) 

LOGICAL FUNCTION f(a 1 ,a 2 ,...,a n ) 
DOUBLE PRECISION FUNCTION f (a-, , 
ENTRY s 
BLOCK DATA 
BLOCK DATA s 
EXTERNAL v 1 ,v 2 ,...v 



,a n ), RETURNS (b-, # b 2 ,...,b m ) 

) 

,a n ) 

-,a n ) 

? a n> 



Inter-Subroutine Statements 



CALLs 

CALL s (a-| ,a 2 ,...,a m ) 

CALLs, RETURNS (b-, ,b 2 , 



,b m ) 



CALL s, (a-| ,a 2 , 
RETURN 
RETURN b 



,a n ), RETURNS (b 1 ,b 2 ,...,b m ) 
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7000 DIFFERENCES 



ECS 



Refers to large core memory (LCM) where ECS 
variables will reside. 



READEC Operate on large core memory and small core 

WRITEC storage (SCM) in the same manner as 6000 ECS 

and central memory. 



Mass Storage I/O 



A 30-bit index is used for random file processing 
instead of the 24-bit index of the 6000 series. 



7000 File Buffers 



If no parameter is specified, a buffer size of 412 
octal is assumed. 



Segment Feature Not supported for version 1. 

Vertical Spacing For many characters, including A, B, 2, and minus, 
determined by input/output station serving 7000 
SCOPE version 1. 



ERRSET (a,b) 



Labeled Tapes 



Library subprogram added. It sets the maximum 
number of errors, b, allowed in input data before 
fatal termination. Error count is kept in a. 

Not supported for version 1 . 
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